00100		ENTRY PCB,UNPCB
00200	PCB:	0		;CALL PCB(PW,AR)
00300		HRRZ 1,1(16)
00400		ADDI 1,2
00500		HRR 2,@1	;SIZE IS 14,11,11 BITS
00600		LSHC 2,-16
00700		SOJ 1,
00800		HRR 2,@1
00900		LSHC 2,-13
01000		SOJ 1,
01100		HRR 2,@1
01200		LSHC 2,-13
01300		MOVEM 3,@0(16)
01400		JRA 16,2(16)
01500	UNPCB:	0		;CALL UNPCB(PW,AR)
01600		HRRZ 1,1(16)
01700		ADDI 1,2
01800		MOVE 2,@0(16)
01900		LSHC 2,-16
02000		ASH 3,-26
02100		MOVEM 3,@1
02200		SOJ 1,
02300		LSHC 2,-13
02400		ASH 3,-31
02500		MOVEM 3,@1
02600		SOJ 1,
02700		LSHC 2,-13
02800		ASH 3,-31
02900		MOVEM 3,@1
03000		JRA 16,2(16)
03100		END
03200